home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / SAMEST.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  800 b   |  27 lines
  1.       LOGICAL FUNCTION SAMEST(IST)  
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Compares statement IST in SIMA with the new image SNEWST, returns   
  5. *   .TRUE. if they are identical.   
  6. *   
  7. *-----------------------------------------------------------------------
  8.       include 'PARAM.h' 
  9.       include 'ALCAZA.h' 
  10.       include 'STATE.h' 
  11.       include 'CURSTA.h' 
  12.       SAMEST=.FALSE.
  13.       N=0   
  14.       DO 10 I=NFLINE(IST),NLLINE(IST)   
  15.          IF(NLTYPE(I).NE.0) N=N+1   
  16.    10 CONTINUE  
  17.       IF(N.NE.NEWOUT) GOTO 999  
  18.       N=0   
  19.       DO 20 I=NFLINE(IST),NLLINE(IST)   
  20.          IF(NLTYPE(I).NE.0) THEN
  21.             N=N+1   
  22.             IF(SNEWST(N)(:72).NE.SIMA(I)(:72)) GOTO 999 
  23.          ENDIF  
  24.    20 CONTINUE  
  25.       SAMEST=.TRUE. 
  26.   999 END   
  27.